<text>Contact me for further information on this astronomy stack and stay tuned for further developments (Hypercard and otherwise). Note: This stack is $5 US Shareware. As to date, I have 17 thoughful people who have turned in the bucks. Will you be the 18th?? Registration entitles one to upgrades by e-mail or by sending me a disk for the next version.Mike KazmierczakX Systems1789 Brandy DriveConyers, GA 30208-3032GEnie: M.KAZMIERCZ1INTERNET: mike%beow.UUCP@gatech.eduVersion 2.01 EnhancementsFixed Lunar Occultation scriptCorrected several 2.0 bugsCorrected numberFormat problem with ST handler which caused incorrect calculations, cleaned up ST code.Version 2.0 Enhancements Jupiter Central Meridian calculations sped up by factor of 2. Minor details cleaned up. VSOP method of calculating solar and planetary positions has been added. (No more Chebyshev polynomials!) Magnitude calculations for Mercury and Venus corrected. Percentage sunlit now calculated for the moon. When the fx card is selected, the planetary data from the previous card is used. Asteroid Card: Clicking on the name of the asteroid takes you to that card, if it exists. Elongation added to the planetary cards.Version 1.93 EnhancementsSelection of folders/files simplified.Magnitude and phase angle calculations added.More bugs fixed.Display of asteroid data on summary card and individual asteroid cards. Ephemerides for Asteroids 1-10 included. Card management also added.Version 1.92 Enhancementsv. 1.91 intl problem fixed.Geocentric distance added.Version 1.91 Enhancements:1991 polynomialsVersion 1.8x Enhancements:Filename XFCN by Steve Maller added. (I thought everyone had it!!)Bug fixed for selecting Jupiter Satellite File.Some scripts cleaned up (user-transparent).1990 Polynomials (finally!)1990 Jupiter Galilean satellite predictions included.Jupiter Central Meridian Longitude and Red Spot Transit calculations added.Moon R.A. and Declination and approximate rise/set calculations added.Position Conversion card.Longitudes now follow screwed up IAU astronomical conventions for the Earth. (East longitude is positive.)Intl resource compatibility improved (as bug reports come in).Rise/set calculations now work for Southern hempisphere (thanx to an Australian user).Path/File selection for Jupiter Galilean satellite predictions now automated (thanx to an Austrian user).Jupiter Galilean Satellite script bug fixed. (for the @#^%$@# last time (again!))Version 1.7 Enhancements:Lunar occultation card added for the few, the proud, the lucky.Maximum ZHR of selected meteor showers.Jupiter Galilean Satellite script bug fixed. (for the @#^%$@# last time)Version 1.61 Enhancements:hm script changed, meteor script fixed for EST/EDTVersion 1.6 Enhancements:1.53 bugs fixedPartial intl resource capabilityPlanetary conjunction card added.One may find the next visible Jupiter Galilean satellite event with the Next Event button.Dates of selected meteor shower maxima are calculated yearly.Version 1.53 Enhancements:Internationally modified for use in some European countries.Version 1.52 Enhancements:Bug in elongations calculations corrected. Bug in Jupiter Galilean satellite visibility calculations corrected.Version 1.51 Enhancements:Yet another sunrise/set twilight bug found and hopefully squashed deader than a doornail.Version 1.5 Enhancements:Jupiter Satellite events now provided for one year in separate file. Planetary elongation calculation bug corrected. 1989 Chebyshev polynomials included. Function dayOfYear corrected. Rising/Setting calculations corrected.</text>
</content>
<name></name>
<script></script>
</card>
card_8682.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text><span class="style3"> This stack is designed to ease the astronomical calculations associated with rising, setting and positions of the sun and planets. The solar and planetary positions are now calculated using the VSOP theory made available in Jean Meeus' </span><span class="style4">Astronomical Algorithms</span><span class="style3">, 1991. This method does not require yearly updating like the previous Chebyshev polynomail method. The number of terms has been truncated for speed, but the postional error should not exceed 5 arc seconds. For some planets the positional calculation may take up to 45 seconds (on a Macintosh SE/Classic) and is designated by a sad face. The altitude/azimuth calculations are quicker and are denoted by a smiling face. I hope to convert the HyperTalk script to a XFCN in the near future to speed up the calculations. The observers latitude, longitude (east=positive), altitude and hours difference from UT [For Example: +5.0 (EST)]are entered on the first card. The DST button is automatically set if Daylight Savings Time is in effect. Universal Time and Sidereal Time are calculated as well as the Julian Date. A Jovian Galilean satellite button is seen on the Jupiter card and this links to my JSAT emulation program. The time for Algol's next minimum is calculated and displayed on card 1. Holding down the shiftKey bypasses RA and Dec. calculations. Holding down the optionKey forces the calculations to be performed. The button "Update for Today" updates all cards and fields to the present time/date and takes about 5 minutes to run on a Macintosh SE. It is very useful at the beginning of a session. A card is given to assist with astrophotography. The formuale are based on Barry Gordon's book, </span><span class="style4">The f</span><span class="style7">x</span><span class="style4"> System of Astrophotography</span><span class="style3">. A planetary conjunction card is now included. Enter the threshhold value in degrees and all planetary conjunctions less than the theshhold value will be listed. The dates of maximum ZHR of selected meteor showers are calculated on a separate card. Olson, </span><span class="style4">Sky & Telescope</span><span class="style3">, </span><span class="style5">78</span><span class="style3">(2), 195, 1989. Jupiter Galilean Satellite Timing Predictions are displayed for the current date. The script now asks for the user to select the file. To change the file for a change of years, click on the select folder button. The filename is stored in the third line of the script. Don't move it from there. Don't move line 4 of the script either. To cancel the use of the Eclipse file, click on the select folder button and select cancel when the file is asked for. This script is self-modifying. The file for the current year is included. Additional information may be obtained from John Westfall, ALPO, Box 16131, San Francisco, CA, 94116, USA Positional coordinates may be converted from 1950 to 2000 epoch and back (for those of us who </span><span class="style5">still</span><span class="style3"> have 1950 atlases). Also, they may be converted to altitude and azimuth for use in observing. The Delta T is the time (in hours) from the present for the calculation. The Moon card has been added/enhanced. Approximate R.A. and Dec. calculations have been incorporated using formulae from the </span><span class="style4">Astronomical Almanac</span><span class="style3"> (AA) (1990, D22). Moon rise and set times are calculated, but the moon's position is iterated only once to the time of the event and may be in error (+/- 5 minutes). Also, the percentage sunlit has also been added (</span><span class="style4">Astronomical Algorithms</span><span class="style3">, J. Meeus). NOTE: This card may also total lunar occultation information. NOTE: If you have access to total lunar occultation predictions, then entering them in a file in a similar format to the included example file (Oc-1989) will allow one to see each day's occultations. In this case, just delete the "Delete..." button. If you do not have access to these data, then use the "Delete Occultations" button on the card for the Moon. To install/remove the filename into the script, follow the instructions as for Jupiter (listed above). Calculations for the longitude of Jupiter's central meridian have been modified from previous versions. The calculations used before [</span><span class="style4">Sky & Telescope</span><span class="style3"> </span><span class="style5">78</span><span class="style3">(6), 640, 1989.] have been replaced by those from </span><span class="style4">Astronomical Algorithms</span><span class="style3">, 1991 by Meeus. The new calculations take half as long without sacrificing accuracy. This enables the transit time of Jupiter's Great Red Spot to be predicted. The System II longitude of the Red Spot is assumed to be 34° (as of February 1992). A 1° drift in longitude causes the spot to rise 1 2/3 minutes sooner or later. The spot is well placed for viewing for 1 hour before and after the predicted time of crossing. Geocentric distances, percent of planetary disk sunlit (if not 100%),and apparent magnitude are now calculated. See </span><span class="style4">Astronomical Algorithms</span><span class="style3">, J. Meeus for theory and formulae. Cards have been added to keep track of asteroids or other objects. Data files for the first ten asteroids are included in 2000 coordinates. Low precision ephemerides (based on the most recent Minor Planet Catalog) for other asteroids are available upon request and a blank disk or e-mail address. If you have the orbital elements for a comet or other object, I can also generate ephemerides for you. A card for each asteroid can be created or deleted with the appropriate button. Also, a card for a summary of all listed asteroids in included. On this card, a minimum magnitude or elongation may be specified to filter out some unwanted asteroids. If you have access to other ephemerides, put them in the same format and they can also be used. Just put them in a folder and select folder (button) to begin calculations. The phrase 'TEXT' must appear in each file name to be considered. On opening the summary card, the field is not updated automatically (since it can take a while...).</span></text>
</content>
<name>One</name>
<script></script>
</card>
card_12115.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpget word 2 of the clickLinego cd (word 2 of line it of cd fld Data)if the result is "No such Card" thenput "No such card."wait 30 tickshide message boxexit mouseUpend ifend mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>7</left>
<top>193</top>
<right>476</right>
<bottom>282</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>paths</name>
<script></script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>447</left>
<top>312</top>
<right>507</right>
<bottom>334</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Update</name>
<script>on mouseUpupdateend mouseUp</script>
</part>
<part>
<id>7</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>289</left>
<top>44</top>
<right>466</right>
<bottom>70</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Helvetica</font>
<textSize>18</textSize>
<textStyle>plain</textStyle>
<textHeight>24</textHeight>
<name>Date</name>
<script></script>
</part>
<part>
<id>8</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>102</left>
<top>290</top>
<right>140</right>
<bottom>305</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Elong</name>
<script></script>
</part>
<part>
<id>9</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>275</left>
<top>290</top>
<right>313</right>
<bottom>306</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Mag</name>
<script></script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>473</left>
<top>201</top>
<right>511</right>
<bottom>250</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>111</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Select</name>
<script>on mouseUpselectxend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>11</id>
<text>Sidereal Time = 9:089.139384674323</text>
</content>
<content>
<layer>background</layer>
<id>12</id>
<text>Universal Time = 22:5222.878888888889</text>
<script>on selectxglobal pref-- Hard Disk:Astronomy:Orbits:put true into Jpredput the name of target into tarput numToChar(45)&numToChar(45) into dashget the script of cd "Orbits"put line 3 of it into prefif "button" is in tar thenput false into Jpredput dash into line 3 of itelseif Jpred thenif dash is in pref then delete char 1 to 5 of prefexit selectxend ifend ifrepeat until number of chars of line 3 of it > 6put "Select a file for Asteroid data..."put filename("TEXT") into prefrepeat until last char of pref is ":" or pref is emptydelete last char of prefend repeatif pref is empty thenput " put false into Jpred" into line 4 of itput " "&dash into line 3 of itset script of cd Orbits to ithide message boxexit selectxelseput " "&dash&&pref into line 3 of itput " put true into Jpred" into line 4 of itset script of cd Orbits to itend ifend repeatif pref is not empty thenif dash is in pref then delete char 1 to 5 of prefput Files(pref,"TEXT") into listend ifget number of lines of listrepeat with i=1 to itput it-i+1 into jif "TEXT" is not in line j of list then delete line j of listend repeatput list into cd fld pathshide message boxend selectxon updateglobal prefput "OBJECT 1950 Epoch RA DEC DE DS E"&¬"L MAG"&return&" h m ° '"&return¬into cd fld dataput the seconds into tput cd fld elong into elput cd fld mag into magput (line 5 of fld pos of cd Sun)/15 into sraput the date into cd fld dateadd DSTcheck()*3600 to tconvert t to dateitemsput item 2 of t into mif m<10 then put space before mput item 3 of t into dif d<10 then put space before dput m&"/"&d&".0/ "&item 1 of t into maskput number of lines of cd fld paths into nnif the optionKey is down thenput 20 into nnput "Release key..."wait 30 tickshide message boxend ifrepeat with i=1 to nnput pref&line i of cd fld paths into fnameif fname is empty then exit repeatopen file fnameread from file fname until returnput word 1 to 2 of it &" " into tempput false into exprepeat until it is emptyset cursor to busyif mask is in it thenput true into expput number of chars of it into ncif nc<40 thenread from file fname until returnnext repeatend ifif char 52 to 57 of it > el and char 59 to 62 of it < mag thenput char 19 to 20 of it into teif (te>sra and te-sra<12) or (te<sra and sra-te>12) thenput "E" into char 55 of itelseput "W" into char 55 of itend ifput char 19 to nc-1 of it into char 24 of temp-- 1.93 fixput char 1 to 67 of temp & return after cd fld dataelseexit repeatend ifend ifread from file fname until returnend repeatif not exp thenput "File"&&fname&&"has expired..."-- can we delete the bloody file(s) nowwait 2 secshide message boxend ifclose file fnameend repeatscrfld "data",16end updateon openCardglobal prefselectxput nxDate(1,0,0) into fld dateset the textfont of cd fld data to "Monaco"set the textsize of cd fld data to 10set the locktext of cd fld data to trueset numberFormat to "0.############"STUTend openCardfunction nxDate Uflag,Jflag,n-- Uflag =0 for no UT, 1 for UT-- Jflag =12 for JT, 0 for no JT-- n = # days after given dateglobal intlget the secondsadd 86400*n+3600*(Jflag+Uflag*DSTcheck()) to itconvert it to datereturn itend nxDateon closeCardhide cd fld pathspass closecardend closeCard</script>
</card>
card_10200.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpif short name of me contains "Show" thenset name of me to "Hide Data"show cd fld dataelseset name of me to "Show Data"hide cd fld dataend ifend mouseUp</script>
<text>Universal Time = 22:5222.878055555556</text>
</content>
<content>
<layer>background</layer>
<id>15</id>
<text>3/25/923/20/92</text>
</content>
<content>
<layer>card</layer>
<id>1</id>
<text>Quadrantids Saturday, January 4, 1992 at 5h ESTLyrids Tuesday, April 21, 1992 at 24h EDTEta Aquariids Monday, May 4, 1992 at 18h EDTJune Lyrids Monday, June 15, 1992 at 19h EDTS. Delta Aquariids Monday, July 27, 1992 at 19h EDTN. Delta Aquariids Tuesday, August 11, 1992 at 10h EDTPerseids Wednesday, August 12, 1992 at 1h EDTOrionids Wednesday, October 21, 1992 at 10h EDTTaurids Monday, November 2, 1992 at 18h ESTLeonids Tuesday, November 17, 1992 at 10h ESTGeminids Sunday, December 13, 1992 at 13h EST</text>
</content>
<name>meteor</name>
<script>on openCardhide cd fld dataset textfont of cd fld meteors to "Monaco"set textfont of cd fld year to "Helvetica"put "("& word 4 of the long date&")" into cd fld yearpass openCardend openCardon mcalcget word 4 of the long dateif it ≠ last word of cd fld data then meteorend mcalcon meteorglobal h,m,intlput " " into spacesput empty into cd fld meteorsput number of lines of cd fld data into linrepeat with i=1 to lin-1put line i of cd fld data into mdatput item 1 of mdat into showerput item 2 of mdat into s0put item 3 of mdat into s1put item 4 of mdat into j5put word 4 of the long date into yput y into line lin of cd fld dataput number of chars of shower into nchput word 4 of the long date into yput (y-1950)/100 into t5put s0+t5*(s1+1.39663+.0003*t5) mod 360 into sput j5+t5*(36525.636+s1) into jrepeat 2set cursor to busyput (j+17980)/36525 into tput 279.7+t*(36000.769+.0003*t) into lput 358.48+t*(35999.05-.0002*t)into mput (l+sind(m)*(1.92-.005*t)+.02*sind(2*m)) mod 360 into s5subtract (s5-s)/(.986+.033*cosd(m)) from jend repeatput (j+16519.5-DSTCheck()/24) into jdput jd*86400 into secput sec - sec mod 1 into secconvert sec to dateItemsif intl is empty thenget char 2 to 4 of last word of line 4 of cd fld coords of cd originif item 2 of sec<4 or item 2 of sec>10 thenput "S" into char 2 of itelseput "D" into char 2 of itend ifelseget emptyend ifconvert sec to long dateput jd mod 1 * 24 into arghm false,argput trunc (h+m/60+.5) into hput shower&& char 1 to (18-nch) of spaces & sec && "at"&&h &"h"¬&& it into line i of cd fld meteorsend repeatscrfld "meteors",14end meteor</script>
</card>
card_11225.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpset hilite of me to not hilite of meset hilite of btn "From 2000 Coords" to not hilite of meend mouseUp</script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>288</left>
<top>222</top>
<right>360</right>
<bottom>244</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Calculate</name>
<script>on mouseUpcalcend mouseUp</script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>473</left>
<top>202</top>
<right>509</right>
<bottom>239</bottom>
</rect>
<style>shadow</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>26635</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New Button</name>
<script>on mouseUpshow cd fld helpend mouseUp</script>
</part>
<part>
<id>16</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>286</left>
<top>145</top>
<right>451</right>
<bottom>168</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>From 2000 Coords</name>
<script>on mouseUpset hilite of me to not hilite of meset hilite of btn "From 1950 Coords" to not hilite of meend mouseUp</script>
</part>
<part>
<id>17</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>135</left>
<top>238</top>
<right>177</right>
<bottom>258</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>DeltaT</name>
<script></script>
</part>
<part>
<id>15</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>38</left>
<top>183</top>
<right>431</right>
<bottom>283</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Help</name>
<script>on mouseUphide cd fld helpend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>12</id>
<text>Universal Time = 22:5222.877777777778</text>
</content>
<content>
<layer>card</layer>
<id>8</id>
<text>29.1</text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text>52</text>
</content>
<content>
<layer>card</layer>
<id>9</id>
<text>27.9</text>
</content>
<content>
<layer>card</layer>
<id>4</id>
<text>226°</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>35°</text>
</content>
<content>
<layer>card</layer>
<id>10</id>
<text>30.5</text>
</content>
<content>
<layer>card</layer>
<id>6</id>
<text>52</text>
</content>
<content>
<layer>card</layer>
<id>11</id>
<text>38</text>
</content>
<content>
<layer>card</layer>
<id>15</id>
<text>Click the Calculate button to calculate altitude and azimuth from the coordinates for the selected epoch. If the 1950 epoch coordinates are given, then the 2000 epoch coordinates are calculated and vice versa. Entering time in Delta T gives altitude and azimuth at another time.</text>
</content>
<content>
<layer>card</layer>
<id>5</id>
<text>20</text>
</content>
<content>
<layer>card</layer>
<id>1</id>
<text>20</text>
</content>
<content>
<layer>background</layer>
<id>11</id>
<text>Sidereal Time = 19:0619.114120034048</text>
</content>
<content>
<layer>card</layer>
<id>17</id>
<text>12</text>
</content>
<content>
<layer>background</layer>
<id>15</id>
<text>3/25/923/20/92</text>
</content>
<name></name>
<script>on calcif cd fld RA is empty then set hilite of btn "From 1950 Coords" to falseif cd fld RA2 is empty then set hilite of btn "From 1950 Coords" to trueset cursor to watchSTif hilite of btn "From 1950 Coords" thenconvput 15*(cd fld RA + cd fld RAm/60) into draput sgn(cd fld Dec)*(abs(cd fld Dec)+cd fld Decm/60) into decelseconv2put 15*(cd fld RA2 + cd fld RA2m/60) into draput sgn(cd fld Dec2)*(abs(cd fld Dec2)+cd fld Dec2m/60) into decend ifput pi/180 into facput line 1 of cd fld "Coords" of cd origin into lat-- calc alt and az of objectput ((360+15*(line 2 of fld ST+cd fld DeltaT)-dra) mod 360) into LHAput cosd(LHA)*sind(lat)-tand(dec)*cosd(lat) into denput round(atanq(den,sind(LHA))/fac) into tempput sind(lat)*sind(dec)+cosd(lat)*cosd(dec)*cosd(LHA) into sinaset cursor to busyif abs(sina)<1 thenput round(atan(sina/(sqrt(1-sina*sina)))/fac) into altif alt>0 thenput temp&"°" into cd fld Azput alt&"°" into cd fld Alelseput "---" into cd fld Azput "---" into cd fld Alend ifelsebeepend ifend calcon convset cursor to busyput 15*(cd fld RA + cd fld RAm/60) into raput sgn(cd fld Dec)*(abs(cd fld Dec)+cd fld Decm/60) into decput .6403615 into Mput .2783378 into Nput ra+(M+N*sind(ra)*tand(dec)) into ramput dec+N*cosd(ram) into decmput ra+M+N*sind(ram)*tand(decm) into ra2000put dec+N*cosd(ram) into dec2000put trunc(ra2000/15) into cd fld RA2put rnd10(60*frac(ra2000/15)) into cd fld RA2mput trunc(dec2000) into cd fld Dec2put rnd10(60*abs(frac(dec2000))) into cd fld Dec2mend convon conv2set cursor to busyput 15*(cd fld RA2 + cd fld RA2m/60) into razput sgn(cd fld Dec2)*(abs(cd fld Dec2)+cd fld Dec2m/60) into deczput .6403615 into Mput .2783378 into Nput raz-(M+N*sind(raz)*tand(decz)) into ramzput decz-N*cosd(ramz) into decmzput raz-M-N*sind(ramz)*tand(decmz) into ra1950put decz-N*cosd(ramz) into dec1950put trunc(ra1950/15) into cd fld RAput rnd10(60*frac(ra1950/15)) into cd fld RAmput trunc(dec1950) into cd fld Decput rnd10(60*abs(frac(dec1950))) into cd fld Decmend conv2on enterInFieldtype tabend enterInFieldon returnInFieldtype tabend returnInFieldon opencardset visible of cd fld help to falsepass openCardend openCard</script>
</card>
card_9537.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text>Universal Time = 23:0123.019444444444</text>
</content>
<content>
<layer>background</layer>
<id>15</id>
<text>3/26/923/25/92</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>Moon and Neptune will be separated by 3.2 degrees.Moon and Uranus will be separated by 2.4 degrees.Uranus and Neptune will be separated by 1.5 degrees.</text>
</content>
<name>Conjunct</name>
<script>on openCardglobal forceset textfont of cd fld conj to "Geneva"set textfont of cd fld threshhold to "Helvetica"put line 1 of fld date into line 2 of fld dateput the date into line 1 of fld dateif (line 1 of fld date ≠ line 2 of fld date) or force=1 then conjset numberFormat to "0.############"STUTend openCardon conjhide message boxglobal ra,dec,planetput empty into raput empty into decput "Moon,Mercury,Venus,Mars,Jupiter,Saturn,Uranus,Neptune" into planetput 12 into d1put 2 into c1put number of cds of bg "almanac" into c2repeat with i=d1 to c2put short name of cd i into item i-3 of planetend repeatput cd fld threshhold into threshput 0 into kput empty into cd fld conjput c1 into jput empty into varrepeat with i=c1 to c2if i=11 then next repeatset cursor to busyif i=3 then next repeatput line 5 of fld Pos of cd i into item j-c1+1 of raput line 6 of fld Pos of cd i into item j-c1+1 of decadd 1 to jend repeatput number of items of ra into nrarepeat with i=1 to nra-1repeat with j=i+1 to nraget sqrt((item i of ra - item j of ra)^2+¬(item i of dec - item j of dec)^2)if it<thresh thenif it<1 then get trunc(it*100)/100elseget trunc(it*10)/10end ifset numberFormat to "0.0#"put it &&item i of planet &&"and"&& item j of planet && "will be"¬&&"separated by "&&it&&"degrees." & return after varset numberFormat to "0.############"end ifset cursor to busyend repeatend repeatsort lines of var descendingrepeat with i=1 to number of lines of vardelete first word of line i of varend repeatput var into cd fld conjscrfld "conj",12end conjon enterInFieldconjend enterInFieldon returnInFieldconjend returnInField</script>
</card>
card_9018.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpset hilite of button "sec." to not hilite of button "sec."set hilite of button "min." to not hilite of button "sec."end mouseUp</script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>241</left>
<top>123</top>
<right>309</right>
<bottom>143</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>f/ratio</name>
<script>on mouseUpset hilite of button "f/ratio" to not hilite of button "f/ratio"set hilite of button "cm." to not hilite of button "f/ratio"end mouseUp</script>
</part>
<part>
<id>15</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>190</left>
<top>123</top>
<right>242</right>
<bottom>143</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>cm.</name>
<script>on mouseUpset hilite of button "cm." to not hilite of button "cm."set hilite of button "f/ratio" to not hilite of button "cm."end mouseUp</script>
</part>
<part>
<id>18</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>257</left>
<top>104</top>
<right>309</right>
<bottom>124</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>min.</name>
<script>on mouseUpset hilite of button "min." to not hilite of button "min."set hilite of button "sec." to not hilite of button "min."end mouseUp</script>
</part>
<part>
<id>22</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>50</left>
<top>198</top>
<right>116</right>
<bottom>220</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Sun</name>
<script>on mouseUpput -8 into card field 1put "Sun" into card field "Object"end mouseUp</script>
</part>
<part>
<id>24</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>50</left>
<top>219</top>
<right>120</right>
<bottom>239</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Full Moon</name>
<script>on mouseUpput 11 into card field 1put "Full Moon" into card field "Object"end mouseUp</script>
</part>
<part>
<id>25</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>50</left>
<top>238</top>
<right>143</right>
<bottom>259</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Gibbous Moon</name>
<script>on mouseUpput 12 into card field 1put "Gibbous Moon" into card field "Object"end mouseUp</script>
</part>
<part>
<id>26</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>50</left>
<top>258</top>
<right>142</right>
<bottom>279</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Quarter Moon</name>
<script>on mouseUpput 13.5 into card field 1put "Quarter Moon" into card field "Object"end mouseUp</script>
</part>
<part>
<id>27</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>50</left>
<top>278</top>
<right>151</right>
<bottom>299</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Crescent Moon</name>
<script>on mouseUpput 14.5 into card field 1put "Crescent Moon" into card field "Object"end mouseUp</script>
</part>
<part>
<id>28</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>50</left>
<top>298</top>
<right>162</right>
<bottom>319</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Earthshine Moon</name>
<script>on mouseUpput 24.5 into card field 1put "Earthshine Moon" into card field "Object"end mouseUp</script>
</part>
<part>
<id>30</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>50</left>
<top>218</top>
<right>147</right>
<bottom>239</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Central Umbra</name>
<script>on mouseUpput 23.5 into card field 1put "Moon - Central Umbra" into card field "Object"end mouseUp</script>
</part>
<part>
<id>45</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>145</left>
<top>87</top>
<right>189</right>
<bottom>106</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <true /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>31</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>50</left>
<top>238</top>
<right>128</right>
<bottom>259</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Edge Umbra</name>
<script>on mouseUpput 22 into card field 1put "Moon - Just within Umbra" into card field "Object"end mouseUp</script>
</part>
<part>
<id>32</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>50</left>
<top>258</top>
<right>143</right>
<bottom>279</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Partial Umbra</name>
<script>on mouseUpput 20 into card field 1put "Moon - Partially within Umbra" into card field "Object"end mouseUp</script>
</part>
<part>
<id>33</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>50</left>
<top>278</top>
<right>118</right>
<bottom>299</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Penumbra</name>
<script>on mouseUpput 15 into card field 1put "Moon - Penumbra" into card field "Object"end mouseUp</script>
</part>
<part>
<id>34</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>151</left>
<top>198</top>
<right>247</right>
<bottom>220</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Lunar Eclipse</name>
<script>on mouseUpif not visible of button 6 thenrepeat with i= 11 to 14set visible of button i to falseend repeatrepeat with i= 6 to 10set visible of button i to trueend repeatelserepeat with i= 6 to 10set visible of button i to falseend repeatrepeat with i= 11 to 14set visible of button i to trueend repeatend ifend mouseUp</script>
</part>
<part>
<id>35</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>151</left>
<top>219</top>
<right>245</right>
<bottom>240</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Stars</name>
<script>on mouseUpAsk "Faintest Magnitude?"put rnd10(4*(it-4.5)/3+9) into card field 1put "Stars: Mag. Limit =" && it into card field "Object"end mouseUp</script>
</part>
<part>
<id>36</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>158</left>
<top>239</top>
<right>241</right>
<bottom>259</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Venus</name>
<script>on mouseUpput 8 into card field 1put "Venus" into card field "Object"end mouseUp</script>
</part>
<part>
<id>37</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>162</left>
<top>258</top>
<right>244</right>
<bottom>279</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Mars @ opp.</name>
<script>on mouseUpput 13 into card field 1put "Mars @ opp." into card field "Object"end mouseUp</script>
</part>
<part>
<id>47</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>145</left>
<top>105</top>
<right>206</right>
<bottom>124</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <true /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>2</name>
<script></script>
</part>
<part>
<id>38</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>161</left>
<top>278</top>
<right>243</right>
<bottom>299</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Jupiter</name>
<script>on mouseUpput 13 into card field 1put "Jupiter" into card field "Object"end mouseUp</script>
</part>
<part>
<id>39</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>161</left>
<top>298</top>
<right>240</right>
<bottom>319</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Saturn</name>
<script>on mouseUpput 15.5 into card field 1put "Saturn" into card field "Object"end mouseUp</script>
<text>Universal Time = 23:0623.106111111111</text>
</content>
<content>
<layer>card</layer>
<id>49</id>
<text>3200</text>
</content>
<content>
<layer>background</layer>
<id>15</id>
<text>3/26/923/26/92</text>
</content>
<content>
<layer>card</layer>
<id>48</id>
<text>7.5</text>
</content>
<content>
<layer>card</layer>
<id>47</id>
<text>1</text>
</content>
<content>
<layer>card</layer>
<id>45</id>
<text>21.4</text>
</content>
<name>fx</name>
<script>on enterKeyset numberFormat to "0.#"put line 1 of cd fld numbs into c1put line 2 of cd fld numbs into c2put line 3 of cd fld numbs into c3put line 5 of cd fld numbs into c5put round(10*c1*c2/c3) into line 4 of cd fld numbsput c5/c3*c2 into line 6 of cd fld numbsput c5/c3 into line 7 of cd fld numbsput round(10*c5*c1*c2/c3) into line 8 of cd fld numbs-- if hilite of btn "f/ratio" then put line 6 of cd fld numbs into cd fld "3"calcend enterKeyon calcif the selection is not empty then put empty into selectionput -1 into emptyFieldput false into varrepeat with i=1 to 5if line 1 of cd fld i is empty thenif var thenput 0 into emptyFieldexit calcend ifput i into emptyFieldput true into varend ifend repeatput "1,2,4,8,15,30,60,125,250,500,1000" into durif emptyField is -1 thenput empty into cd fld 2put 2 into emptyFieldend ifif emptyField is 0 thenput return & "Not enough items specified..." into cd fld "Output"flashField 2exit calcend ifput line 1 of cd fld 1 into fx1put line 1 of cd fld 2 into itif hilite of btn "min." then multiply it by 60if char 2 of it is "/" then get value of itput 12+log2(it) into fx2put 10-2*log2(line 1 of cd fld 3) into fx3if hilite of btn "cm." then multiply fx3 by -1put log2(line 1 of cd fld 4)-4 into fx4put -10/3*line 1 of cd fld 5 into fx5set numberFormat to "0.#"if emptyField is 1 thenput fx2+fx3+fx4+fx5 into cd fld 1if first word of cd fld object contains "Stars" thenput 4.5+0.75*(fx2+fx3+fx4+fx5-9) into last word of cd fld objectend ifend ifif emptyField is 2 thenput exp2(fx1-fx3-fx4-fx5-12) into itif it<60 thenif it<1 thenget round(1/it)repeat with i=1 to 11if it<=item i of dur thenget item i of durexit repeatend ifend repeatput "1/" & it into cd fld 2elseput it into cd fld 2end ifset hilite of btn "min." to falseset hilite of btn "sec." to trueelsedivide it by 60set hilite of btn "min." to trueset hilite of btn "sec." to falseput it into cd fld 2end ifend ifif emptyField is 3 thenput fx1-fx2-fx4-fx5 into itif hilite of btn "f/ratio"then put exp2((10-it)/2) into itelse put exp2((10+it)/2) into itput it into cd fld 3end ifif emptyField is 4 thenput exp2(fx1-fx2-fx3-fx5+4) into cd fld 4end ifif emptyField is 5 thenput 0.3*(fx1-fx2-fx3-fx4) into cd fld 5end ifend calcon opencardset textfont of cd fld data1 to "N Helvetica Narrow"pass opencardend opencard</script>
</card>
card_11750.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpset lockmessages to truedoMenu "Copy Card"doMenu "Paste Card"get script of this cdif ">" is in line 2 of it then delete line 2 of itset script of this cd to itastpromptget first line of fld planetset name of this cd to itset cantdelete of this cd to falseset lockmessages to falsecalc 1put it after menu "Planet" with menumsg "go cd "&itend mouseUp</script>
</part>
<part>
<id>21</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>472</left>
<top>186</top>
<right>511</right>
<bottom>237</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>112</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Remove</name>
<script>on mouseUpAnswer "Are you sure?" with "Yes" or "No"if it is "Yes" thenlock screenget short name of this cddelete menuItem it of menu "Planet"doMenu "Delete Card"go prev cdend ifend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>7</id>
<text>Sidereal Time = 5:505.847847067524</text>
</content>
<content>
<layer>background</layer>
<id>6</id>
<text>Universal Time = 23:0623.10611111111186</text>
<script>on mouseUpput char 1 to 3 of second word of nDate(1,12,0) && ¬first word of nDate(1,12,0) into hefetch heend mouseUp</script>
</part>
<part>
<id>16</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>358</left>
<top>258</top>
<right>397</right>
<bottom>282</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>31949</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Satellite</name>
<script>on mouseUpget the secondsadd DSTcheck()*3600 to itconvert it to dateitemsput item 1 of it into line 3 of joeput item 2 of it into line 1 of joeput item 3 of it +(item 4 of it)/24 + (item 5 of it)/1440 into line 2¬of joeput joe into cd fld totalPutClipboard(joe)open "JSAT"end mouseUp</script>
</part>
<part>
<id>20</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>283</left>
<top>313</top>
<right>364</right>
<bottom>334</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Other Days</name>
<script>on mouseUpAsk "Enter date (mon dd):"put it into hefetch heend mouseUp</script>
</part>
<part>
<id>21</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>90</left>
<top>313</top>
<right>171</right>
<bottom>334</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Tomorrow</name>
<script>on mouseUpput char 1 to 3 of second word of nDate(1,12,1) && ¬first word of nDate(1,12,1) into hefetch heend mouseUp</script>
</part>
<part>
<id>22</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>375</left>
<top>313</top>
<right>460</right>
<bottom>334</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Next Event</name>
<script>on mouseUpglobal foundput 0 into nput false into foundrepeat until (found) or (n=14)add 1 to nput char 1 to 3 of word 2 of nDate(1,12,n) && ¬word 1 of nDate(1,12,n) into hefetch heend repeatif n=15 then put "None found for 14 days..."wait 2 secshide message boxend mouseUp</script>
<text>No Galilean Satellite Events for Mar 27</text>
</content>
<name>Jupiter</name>
<script>on selectxglobal path,force--put true into Jpredput the name of target into tarput numToChar(45)&numToChar(45) into dashput 0 into force2get the script of cd "Jupiter"put line 3 of it into pathif "button" is in tar thenput false into Jpredput dash into line 3 of itelseif Jpred thenif dash is in path then delete char 1 to 5 of pathexit selectxend ifend ifrepeat until number of chars of line 3 of it > 6put "Select a file for Jupiter Galilean Satellite Events..."put filename("TEXT") into pathif path is empty thenput " put false into Jpred" into line 4 of itput " "&dash into line 3 of itset script of cd Jupiter to ithide message boxexit selectxelseput " "&dash&&path into line 3 of itput " put true into Jpred" into line 4 of itset script of cd Jupiter to itend ifend repeatif path is not empty thenif dash is in path then delete char 1 to 5 of pathend ifput 1 into force2hide message boxput char 1 to 3 of second word of nDate(1,12,0) && first word of ¬nDate(1,12,0) into heif not((second word of he) = first word of fld "date") or force=1¬or force2=1 then fetch heend selectxon opencardset textfont of cd fld CL to "N Helvetica Narrow"centralpass opencardend opencardon fetch heglobal found,path,monthput numToChar(45)&numToChar(45) into dashif path is empty then exit fetchput false into foundput "JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC" into monthsif he is empty then exit fetchif number of chars of he=5 then put "0" after char 4 of heif path contains dash then delete char 1 to 5 of pathif path is empty then selectxrepeat with month=1 to 12if item month of months is in he then exit repeatend repeat--mek 1.93+if "." is in month then put char 1 to ((offset(".",month))-1) of month into monthput empty into cd fld totalput month&char 5 to 6 of he into taropen file pathrepeatset cursor to busyread from file path until "&"if it is empty then exit repeatdelete last char of itif it contains tar then exit repeatif "*" is in first word of it then next repeatif tar < word 2 of it thenget emptyexit repeatend ifend repeatclose file pathput the number of lines of it into sheif she = 0 then-- next searchif not (the target contains "Next") then put ¬"No Galilean Satellite Events for "& he into line 3 of cd fld totalexit fetchend ifif not (the target contains "Next") thenput "JUPITER SATELLITE ECLIPSE EVENTS" && return into cd fld totalput "DATE Time(UT) SP Radii" & return into line 2 of cd fld totalend ifrepeat with i=1 to sheif "*" is in first word of line i of it then-- added for 1.9put line i to she of it after cd fld totalexit repeatend ifput "(not visible)" into tempput word 3 of line i of it into timeput (line 4 of fld rise + .5) mod 24 into jrput (line 5 of fld rise - .5) mod 24 into jsput (char 1 to 2 of time+(char 4 to 5 of time)/60+24-DSTcheck())¬mod 24 into timeput (line 4 of fld rise of cd sun) - .5 into strput (line 5 of fld rise of cd sun) + .5 into stsif time <str or time >sts thenput jr>time into aput js>time into b-- change 12's to 11.5, 12.5put jr>11.5 into cput js>12.5 into d-- 1.83 change decision below-- put a&&b&&c&&dif (a is b) and (c and not d) thenput empty into tempelse if not a and b and not c thenput empty into tempelse if (a is b) and not (c or d) thenput empty into tempend ifend ifif (the target contains "Next" and temp is empty and ¬cd fld total is empty) then put "JUPITER SATELLITE ECLIPSE EVENTS" ¬& return & "DATE Time(UT) SP Radii" & return into cd fld total-- modified for 1.9 line 4if not (the target contains "Next") or ¬(the target contains "Next" and temp is empty) then ¬put item month of months&&char 5 to 6 of he&&word 3 of line i of it¬&&" "&word 1 of line i of it&& (word 4 of line i of it) && temp¬& return after cd fld totalif temp is empty then put true into foundend repeatscrfld "total",5end fetchfunction rmod xget 360*(x/360-trunc(x/360))if it<0 then add 360 to itreturn itend rmodon centralset cursor to watchput 2*pi into p2put pi/180 into facput -2451545 + last word of first line of fld JD into dput 172.74+d*.00111588 into Vput 357.529+d*.9856003 into Mput 20.02+d*.0830853+.329*sind(V) into Nput 66.115+d*.9025179-.329*sind(V) into Jput 1.915*sind(M)+ .02*sind(2*M) into Aput 5.555*sind(N)+.168*sind(2*N) into Bput J+A-B into Kput line 2 of fld Dmag into dJEput line 2 of fld dmag of cd Sun into Reput Re/dJE*sind(K) into spsiput atan(spsi/(sqrt(1-spsi*spsi)))/fac into psiput round(rmod(187.23+870.1869088*(d-dJE/173)+psi-B)) into clongput 34 into GreatRedSpotLong -- System II longitudeput rnd10(rmod(360+GreatRedSpotLong-clong)/36.552917) into ntput "Long. Cent. Mer. = "&clong&"°"&return&"Red Spot Transits in"&&nt¬&&"h." into cd fld CLset cursor to arrowend central</script>
</card>
card_2204.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on togglobal forceget the id of the targetrepeat with i=20 to 22if i=it then set hilite of btn id i to trueelse set hilite of btn id i to falseend repeatput 1 into forcesend opencard to this cdput 0 into forceend tog</script>
</card>
card_7837.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpglobal dooput 1 into dooput char 1 to 3 of second word of nDate(1,12,1) && ¬first word of nDate(1,12,1) into hefetchOcc heput 0 into dooend mouseUp</script>
</part>
<part>
<id>14</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>36</left>
<top>177</top>
<right>396</right>
<bottom>287</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>15</textHeight>
<name>TotalOcc</name>
<script></script>
</part>
<part>
<id>15</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>6</left>
<top>313</top>
<right>87</right>
<bottom>334</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Today</name>
<script>on mouseUpglobal doo,dodooput char 1 to 3 of second word of nDate(1,12,0) && ¬first word of nDate(1,12,0) into heput 1 into doofetchOcc heif dodoo=1 then put 0 into dooend mouseUp</script>
</part>
<part>
<id>16</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>290</left>
<top>313</top>
<right>371</right>
<bottom>334</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Other Days</name>
<script>on mouseUpAsk "Enter date (mon dd):"put it into hefetchOcc heend mouseUp</script>
</part>
<part>
<id>17</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>42</left>
<top>114</top>
<right>119</right>
<bottom>133</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Filter >=</name>
<script>on mouseUpglobal doo,dodooput 1 into dodooset hilite of me to not hilite of mesend mouseUp to btn todayput 0 into dodooend mouseUp</script>
</part>
<part>
<id>18</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>110</left>
<top>114</top>
<right>138</right>
<bottom>131</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Filter</name>
<script></script>
</part>
<part>
<id>19</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>179</left>
<top>304</top>
<right>224</right>
<bottom>342</bottom>
</rect>
<style>shadow</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1007</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Print</name>
<script>on mouseUpprint cd fld 1end mouseUp</script>
</part>
<part>
<id>20</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>380</left>
<top>313</top>
<right>424</right>
<bottom>334</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Sort</name>
<script>on mouseUpset cursor to arrowrepeat with i=3 to number of lines of cd fld TotalOccput line i of cd fld TotalOcc into item i-2 of argend repeatput number of items of arg into nrepeat with j=2 to nput item j of arg into arepeat with k=1 to j-1put j-k into iput false into flagif item i of arg < a thenset cursor to busyput true into flagexit repeatend ifput item i of arg into item (i+1) of argend repeatif not flag then put 0 into iput a into item (i+1) of argend repeatset cursor to watchrepeat with i=1 to number of items of argput item i of arg into line i+2 of cd fld TotalOccend repeatend mouseUp</script>
</part>
<part>
<id>22</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>472</left>
<top>82</top>
<right>510</right>
<bottom>126</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>111</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Select</name>
<script>on mouseUpselectxend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>7</id>
<text>Sidereal Time = 5:505.849239759066</text>
</content>
<content>
<layer>background</layer>
<id>6</id>
<text>Universal Time = 23:0623.107586</text>
</content>
<content>
<layer>background</layer>
<id>14</id>
<text>Occult.</text>
</content>
<content>
<layer>background</layer>
<id>28</id>
<text>27 March 1992 (JT)</text>
</content>
<content>
<layer>background</layer>
<id>39</id>
<text>99%+</text>
</content>
<content>
<layer>card</layer>
<id>18</id>
<text>3</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text>Moon Rises at 1:58 A.M.Moon Sets at 12:08 P.M.6.87460013231.97929925237712.144998470256</text>
<text> DATE T(UT) PR STAR # MAG PCT MN SN CA MAR 27/08:35 R9 2851 6.0 38- 9 44S MAR 27/08:41 R5 X27125 8.8 38- 10 46S MAR 27/09:10 R7 X27133 7.8 38- 15 73N MAR 27/08:57 R5 X27138 9.1 38- 13 24N MAR 27/11:00 R5 X27197 8.9 37- 30 -7 79N</text>
</content>
<name>Moon</name>
<script>on selectxglobal path,force2,total--put true into Mpredput the name of target into tarput numToChar(45)&numToChar(45) into dashif total=0 then exit selectxput 0 into force2get the script of cd "Moon"put line 3 of it into pathif "button" is in tar thenput false into Mpredput dash into line 3 of itelseif Mpred thenif dash is in path then delete char 1 to 5 of pathexit selectxend ifend ifrepeat until number of chars of line 3 of it > 6put "Select file for Lunar Occultation Predictions..."put filename("TEXT") into pathif path is empty thenput " put false into Mpred" into line 4 of itput " "&dash into line 3 of itset script of cd Moon to ithide message boxexit selectxelseput " "&dash&&path into line 3 of itput " put true into Mpred" into line 4 of itset script of cd Moon to itend ifend repeatif path is not empty thenif dash is in path then delete char 1 to 5 of pathend ifput 1 into force2hide message boxend selectxon fetchOcc heglobal doo,oldit,she,today,total,path,force2put numToChar(45)&numToChar(45) into dashif path is empty then exit fetchOccget the script of cd "Moon"put line 3 of it into pathput empty into olditput 2 into lasput false into doneif he is empty then exit fetchOccput word 1 of he && word 2 of he into sheget char 2 of word 2 of last line of cd fld totalOccif it is "/" then subtract 1 from lasput word 1 of last line of cd fld totalOcc && char 1 to las of word 2 of¬last line of cd fld totalOcc into todayif not((today is in she) and (she is in today)) or doo=1 or force2=1¬then-- import textif number of chars of he=5 then put space after char 3 of heif the shiftKey is up and number of lines of cd fld totalOcc ≠ 0 thenput empty into cd fld totalOccend ifif dash is in path then delete char 1 to 5 of pathif path is empty then selectxif path is empty then exit fetchOccopen file pathrepeatset cursor to busyread from file path until "&"if it is empty thenexit repeatend ifdelete last char of itif it contains he thenexit repeatelse-- put he && char 6 to 7 of line 2 of itif first word of he is in it and second word of he< char 6 to 7¬of line 1 of it thenput true into doneexit repeatend ifend ifput it into olditend repeatif done thenclose file pathput empty into cd fld totalput " No totals for this date." into line 4 of cd fld totalOccexit fetchOccend ifclose file pathput number of lines of oldit into nlinesput 0 into prevdayif getday(it)-getday(oldit)=1 thenrepeat with i=1 to nlinesif char 9 to 10 of line i of oldit >=20 thenput i into oldirepeat with i=oldi to nlinesput "*" into char 1 of line i of olditend repeatput line oldi to nlines of oldit &return before itexit repeatend ifend repeatend ifput " DATE T(UT) PR STAR # MAG PCT MN SN CA" & ¬return into cd fld totalOccput the number of lines of it into numput not hilite of cd btn "Filter >=" into seerepeat with i=1 to numif see thenput line i of it & return after cd fld totalOccelseif (char 16 of line i of it)>=char 1 of cd fld Filter then put line i of it & return after cd fld totalOccend ifend repeatif number of lines of cd fld totalocc <2 thenput empty into cd fld totaloccput " Totals filtered out. " into line 4 of cd fld totaloccend ifput 1 into jelseput it after cd fld totalOccput -1 into jend ifdelete last char of cd fld totalOccscrfld "totalOcc",7end fetchOccon enterInFieldif "Filter" is in the target then send mouseUp to btn "Today"pass enterinFieldend enterInFieldon returnInFieldif "Filter" is in the target then send mouseUp to btn "Today"pass returninFieldend returnInFieldfunction getday argget char 6 to 7 of line 1 of argreturn itend getdayon openCardglobal totalif total=1 then set textFont of cd fld total to Monacopass openCardend openCardon textractput "MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC" into monthsput 0 into mx-- put "Hard Disk:Astronomy:1992 Totals.input" into fnameput filename("TEXT") into fnameif it is empty then exit textractopen file fnameread from file fname until eofclose file fnameput number of lines of it into nput fname&".9" into fnameopen file fnamerepeat with i=1 to nset cursor to busy--read line. is it new month?, is it trash?put line i of it into tif "*************************" is in t thenadd 1 to mxnext repeatend ifif char 36 of t is not space or (char 27 of t)<9 then next repeatput space & item mx of months && char 2 to 6 of t & ":" & ¬char 8 to 9 of t && char 14 of t & char 27 of t && char 19 to 24 ¬of t && char 29 to 32 of t && char 37 to 40 of t && char 49 to 50 ¬of t && char 45 to 47 of t && char 55 to 58 of t into twrite t & return to file fnameend repeatclose file fnameend textracton extractput "MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC" into monthsput 0 into mx-- put "Hard Disk:Astronomy:1992 Totals.input" into fnameput filename("TEXT") into fnameif fname is empty then exit extractopen file fnameread from file fname until eofclose file fnameput number of lines of it into nput fname&".X" into fnameopen file fnamerepeat with i=1 to nset cursor to busy--read line. is it new month?, is it trash?put line i of it into tif "*************************" is in t thenadd 1 to mxnext repeatend ifif char 36 of t is not space then next repeatput d into odput char 2 to 3 of t into dif d≠od thenput "&" into prelseput empty into prend ifput space & item mx of months && char 2 to 6 of t & ":" & ¬char 8 to 9 of t && char 14 of t & char 27 of t && char 19 to 24 ¬of t && char 29 to 32 of t && char 37 to 40 of t && char 49 to 50 ¬of t && char 45 to 47 of t && char 55 to 58 of t into twrite pr&t & return to file fnameend repeatclose file fnameend extract</script>
</card>
card_2966.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpglobal force,dodooput 1 into forceput 1 into dodoorepeat with i=2 to number of cds of this bggo cd iend repeatgo cd conjunctgo cd originput 0 into forceput 0 into dodooelongend mouseUp</script>
</part>
<part>
<id>23</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>38</left>
<top>243</top>
<right>271</right>
<bottom>280</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Helvetica</font>
<textSize>14</textSize>
<textStyle>bold</textStyle>
<textHeight>18</textHeight>
<name>Algol</name>
<script></script>
</part>
<part>
<id>24</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>285</left>
<top>135</top>
<right>396</right>
<bottom>270</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Helvetica</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>Elong</name>
<script>on mouseUpget word 2 of the clickLineselect line it of meput word 1 of line it of me into arggo cd argend mouseUp</script>
</part>
<part>
<id>31</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>40</left>
<top>163</top>
<right>239</right>
<bottom>226</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Daily</name>
<script></script>
</part>
<part>
<id>35</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>44</left>
<top>75</top>
<right>465</right>
<bottom>301</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>18</textSize>
<textStyle>plain</textStyle>
<textHeight>24</textHeight>
<name>Outdated</name>
<script>on mouseuphide meend mouseUp</script>
</part>
<part>
<id>38</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>360</left>
<top>310</top>
<right>501</right>
<bottom>331</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Delete Occultations</name>
<script>on mouseUpglobal total,userNameif "Mike Kaz" is in userName then exit mouseUpAnswer "Are you really sure??? (Can't be undone!)" with "No" or "Yes"if it is "No" then exit mouseUpput "Now deleting Lunar Occultation Things. Please wait..."set lockMessages to trueset lockScreen to truego cd "Moon"set script of cd "Moon" to emptyput 0 into totalchoose fld toolrepeat until (number of cd flds) = 0click at the loc of cd fld 1doMenu "Cut Field"end repeatchoose btn toolrepeat until (number of cd btns) = 0click at the loc of cd btn 1doMenu "Clear Button"end repeatchoose tool 4drag from 41,77 to 164,113doMenu "Clear Picture"go first cdchoose btn toolclick at the loc of btn "Delete Occultations"doMenu "Clear Button"click at the loc of bg btn "topo"doMenu "Clear Button"put "Occultation Delete Complete..."wait 90 tickshide message boxchoose browse toolend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>7</id>
<text>Sidereal Time = 5:515.857595908315</text>
</content>
<content>
<layer>background</layer>
<id>6</id>
<text>Universal Time = 23:0623.115833333333226</text>
</content>
<content>
<layer>background</layer>
<id>14</id>
<text>Card</text>
</content>
<content>
<layer>card</layer>
<id>23</id>
<text>Next minimum of Algol occurs in 25.8 hours at JD=2448709.53748709.537</text>
<text>The polynomials are outdated. This means that the planetary coordinates are not correct. The rise/set times of the moon are still correct, as are the Jupiter Central Meridian/Red Spot data.</text>
<script>on elonggo first cdput line 5 of fld Pos of cd sun into sraput line 6 of fld Pos of cd sun into sdecrepeat with i=2 to 10if i=3 then next repeatset cursor to busyput (sra - line 5 of fld Pos of cd i) into draput (sdec - line 6 of fld Pos of cd i) into ddecput (dra+360) mod 360 into argif arg>180 thenget round(sqrt((360-arg)*(360-arg) + ddec*ddec))put "E" into direlseget round(sqrt(arg*arg + ddec*ddec))put "W" into dirend ifif i=2 thenput 1 into jelseput i-2 into jend ifput (short name of cd i) & " -- " & it && dir ¬into line j of cd fld "elong"put it&dir into fld elon of cd iend repeatend elongon patchgo cd 1 of stack almanacget cd fld "sidereal cheb"go cd 1 of stack "almanac.sw"put it into cd fld "sidereal Cheb"repeat with i=3 to 10go cd i of stack almanacput fld "ra cheb" into a1put fld "dec cheb" into a2go cd i of stack "almanac.sw"put a1 into fld "ra cheb"put a2 into fld "dec cheb"end repeatend patchon closecardhide cd fld outdatedpass closecardend closecardon opencardset textfont of cd fld "elong" to Helveticaset textstyle of cd fld "elong" to boldset textsize of cd fld elong to 12pass opencardend opencard</script>
 (January 1993).iso/Files/Hyper/A-An/almanac 201.cpt/swalmanac 2.01/BMAP_9784.png){kind=link}
 (January 1993).iso/Files/Hyper/A-An/almanac 201.cpt/swalmanac 2.01/PATs.png){kind=link}